home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / dox (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  781b  |  6 lines
  1. 1 :SYS58692:POKE53280,0:POKE53281,0:POKE646,15:A$=CHR$(34):OPEN15,8,15:INPUT#15,E,E$,J,J:IFE>1THENPRINT#15,"I0":POKE2,0
  2. 2 IFE>0THENE=0:PRINTCHR$(142);"[147] ";E$:END
  3. 3 SYS58692:PRINTCHR$(14);"[147]";TAB(13)" ! [215][193][210][206][201][206][199] !":PRINT" [212]HIS SOFTWARE IS PROTECTED BY [213]. [211].":PRINT" COPYRIGHT LAW ([212][201][212][204][197] 17 [213][206][201][212][197][196][160][211][212][193][212][197][211]":PRINT" [195][207][196][197]). [215]E RESERVE ANY COMMERCIAL RIGHTS";:PRINT" TO THIS PROGRAM. [208]ERMISSION IS GRANTED
  4. 4 [153]" FOR ANY NON-COMMERCIAL DISTRIBUTION.":[153]" (null)HERE ARE NO WARRANTIES, EXPRESSED OR":[153]" IMPLIED AS TO THE FITNESS OF THIS":[153]" SOFTWARE FOR ANY PARTICULAR PURPOSE.":[153]"   LENOPYRIGHT (LEN) 1986 (null)OBERT LENROSWELL":[153]"    (null)T.2 PEEKOX 20, (null)RA";
  5. 5 [153]"PPE, (null)D. 21673":[153]:[151]787,[194](186)[170]56:[153]"        (null)AIT FOR PROGRAM TO LOAD ":[151]2,64:[151]646,0:[153]"";:[153]"LOAD"A$"LEX.OBJ.P*"A$",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  6.